home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / util / wb / MultiConcept.lha / multiconcept / Install < prev    next >
Encoding:
Text File  |  1996-09-12  |  27.7 KB  |  698 lines
  1. ; $VER: Install_MultiConcept V0.7 (17.08.96) Claus Dilly
  2.  
  3. ((set tempi "") (set email "TANGRAM@eagle.ame.osn.de"))
  4.  
  5. (set def         "REXX:")
  6. (set sourcefile  "S/MultiConcept")
  7. ;(set sourceicon  "S/MultiConcept.info")
  8. (set sourcedoc   "Dok/MultiConcept.guide")
  9. (set helpfile    "Locale/help/deutsch/MC.fc")
  10. (set hpath       "SYS:Locale/Help/deutsch/")
  11.  
  12. (set nicon       "\nHaben Sie NewIcons auf Ihrem\nSYSTEM installiert ?\n")
  13. (set minver1 38)  ;Version rexxtricks.library
  14. (set minrev1 6)   ;Revision rexxtricks.library
  15.  
  16. (set minver2 37)  ;Version rexxreqtools.library
  17. (set minrev2 95)   ;Revision rexxreqtools.library
  18.  
  19. (set minver3 4)   ;Version whatis.library
  20. (set minrev3 0)   ;Revision whatis.library
  21.  
  22. ;###############################################################################
  23. ;##              Konfiguration der Tooltypes                                  ##
  24. ;###############################################################################
  25. (procedure KONFIG
  26.  
  27. (set text1 (cat "\nJetzt werden die Tooltypes für das Script konfiguriert\n"
  28.                 "\nSie bestimmen das Verhalten/die Anzeigen des Scripts\n"
  29.                 "\nBitte unbedingt vorher die Anleitung lesen !!!"))
  30.  
  31. (set def_pfad1   "\nWollen Sie einen Default-Pfad zum entpacken für\n LHA/LZX - Archive setzen?\n")
  32. (set def_pfad2   "\nWählen Sie den Default-Pfad für LHA/LZX etc.\n")
  33.  
  34. (set radtxt      "\nBitte geben sie den DEVICE-Namen Ihres\nvirtuellen RAM-Laufwerkes ein\n\nz.B.: SD0:\n")
  35. (set fmstxt      "\nBitte geben sie die DEVICE-Namen Ihrer\nvirtuellen DISK-Laufwerke ein\n\nz.B.: FF0: FF1: FF2:\n")
  36.  
  37. (set font        "\nSoll der Font XEN/11 für den\nAnzeiger verwendet werden ?\n")
  38. (set font1       "\nSoll der Font XEN installiert werden ?\n")
  39. (set edit        "\nSollen alle Texte angezeigt\noder editiert werden ?\n")
  40. (set gltt1       "Welcher Globale TextViewer soll verwendet werden ?")
  41.  
  42. (set tett1       "Welcher Guide-Viewer soll verwendet werden ?")
  43. (set tett2       "Welcher Text-Viewer soll verwendet werden ?")
  44.  
  45. (set pitt1       "Welcher ILBM-Viewer soll verwendet werden ?")
  46. (set pitt1a      "\nWelche Argumente soll der ILBM-Viewer verwenden ?")
  47. (set pitt2       "Welcher JPEG-Viewer soll verwendet werden ?")
  48. (set pitt2a      "\nWelche Argumente soll der JPEG-Viewer verwenden ?")
  49. (set pitt3       "Welcher GIF-Viewer soll verwendet werden ?")
  50. (set pitt3a      "\nWelche Argumente soll der GIF-Viewer verwenden ?")
  51.  
  52. (set antt0       "Welcher ANIM-Viewer soll verwendet werden ?")
  53. (set antt0a      "\nWelche Argumente soll der ANIM-Viewer verwenden ?")
  54. (set antt1       "Welcher FLI-Viewer soll verwendet werden ?")
  55. (set antt1a      "\nWelche Argumente soll der FLI-Viewer verwenden ?")
  56. (set antt2       "Welcher FLC-Viewer soll verwendet werden ?")
  57. (set antt2a      "\nWelche Argumente soll der FLC-Viewer verwenden ?")
  58. (set antt3       "Welcher MPEG-Viewer soll verwendet werden ?")
  59. (set antt3a      "\nWelche Argumente soll der MPEG-Viewer verwenden ?")
  60.  
  61. (set edtt1       "Welcher Icon-Editor soll verwendet werden ?")
  62. (set edtt2       "Welcher Text-Editor soll verwendet werden ?")
  63. (set edtt3       "Wo befindet sich FinalWriter ?")
  64.  
  65. ;(set patt1       "Welcher ARC-Archiv Entpacker soll verwendet werden ?")
  66. (set patt2       "Welcher DMS-Archiv Entpacker soll verwendet werden ?")
  67. (set patt3       "Welcher LHA-Archiv Entpacker soll verwendet werden ?")
  68. (set patt4       "Welcher LZX-Archiv Entpacker soll verwendet werden ?")
  69.  
  70. (set icon        "T:MultiConcept")
  71. (message text1)
  72. ;*********************************************************************************
  73. (set res (askchoice (prompt def_pfad1)
  74.                          (help "\Hier können Sie entscheiden, ob grundsätzlich alle\n"
  75.                           "Archive in einen Default-Pfad entpackt werden sollen.\n"
  76.                           "Wenn Sie JA wählen, erscheint dann beim entpacken kein\n"
  77.                           "Verzeichnisrequester mehr, sondern das Archiv wird gleich\n"
  78.                           "in den eingestellten Default-Pfad entpackt.")
  79.                          (choices "JA" "NEIN")
  80.                          (default 0)))
  81. (if (= res "0")
  82.    (
  83.     (set res (askdir  (prompt def_pfad2)
  84.                       (help "\nHier geben Sie den Default-Pfad an, in den dann\n"
  85.                        "alle Archive grundsätzlich entpackt werden.")
  86.                       (default "RAM:")))
  87.  
  88.     (tooltype (settooltype "DEF_PFAD" res)
  89.               (dest icon)
  90.               (prompt " ")
  91.               (help " "))
  92.    )
  93.  
  94.    (
  95.     (tooltype (settooltype "DEF_PFAD" "")
  96.               (dest icon)
  97.               (prompt " ")
  98.               (help " "))
  99.    )
  100. )
  101. ;*********************************************************************************
  102. (set res (askstring (prompt radtxt)
  103.                          (help "\nDer Laufwerksname muß der selbe Name sein, wie der,\n"
  104.                           "unter dem das zusätliche RAM-Laufwerk gemountet wird.\n\n"
  105.                           "Der Tooltype müsste dann wie folgt aussehen:\n\n"
  106.                           "RAD=SD0:  oder  RAD=VD0: etc.\n\n"
  107.                           "Nach dem Laufwerksnamen muß unbedingt ein Doppelpunkt folgen !!")
  108.                          (default "")))
  109.  
  110. (if (= res "")
  111.         ((tooltype (settooltype "RAD" "")
  112.                    (dest icon) (prompt " ") (help " ")))
  113.         ((tooltype (settooltype "RAD" res)
  114.                    (dest icon) (prompt " ") (help " "))))
  115. ;*********************************************************************************
  116. (set res (askstring (prompt fmstxt)
  117.                          (help "Die Laufwerke müssen durch ein Leerzeichen getrennt werden.\n"
  118.                           "Der Tooltype müsste dann wie folgt aussehen:\n\n"
  119.                           "FMS=FF0: FF1: FF2:\n\n"
  120.                           "Nach jedem Laufwerksnamen muß unbedingt ein Doppelpunkt folgen !!")
  121.                          (default "")))
  122.  
  123. (if (= res "")
  124.         ((tooltype (settooltype "FMS" "")
  125.                    (dest icon) (prompt " ") (help " ")))
  126.         ((tooltype (settooltype "FMS" res)
  127.                    (dest icon) (prompt " ") (help " "))))
  128. ;*********************************************************************************
  129. (set res (askchoice (prompt edit)
  130.                          (help "RTFM")
  131.                          (choices "anzeigen" "editieren")
  132.                          (default 0)))
  133. (if (= res "1")
  134.         ((tooltype (settooltype "EditTXT" "JA")
  135.                   (dest icon) (prompt " ") (help " ")))
  136.         ((tooltype (settooltype "EditTXT" "NEIN")
  137.                   (dest icon) (prompt " ") (help " "))))
  138. ;*********************************************************************************
  139. (set res (askfile   (prompt gltt1)
  140.                          (help "RTFM")
  141.                          (default "Sys:Utilities/MultiView")))
  142. (tooltype (settooltype "GView" res)
  143.           (dest icon) (prompt " ") (help " "))
  144.  
  145. (set res (askchoice (prompt font)
  146.                          (help "RTFM")
  147.                          (choices "JA" "NEIN")
  148.                          (default 0)))
  149. (if (= res "1")
  150.         ((tooltype (settooltype "GViewARG" "")
  151.                   (dest icon) (prompt " ") (help " ")))
  152.         ((tooltype (settooltype "GViewARG" "FONTNAME=XEN FONTSIZE=11")
  153.                   (dest icon) (prompt " ") (help " "))))
  154. ;*********************************************************************************
  155. (set res (askfile   (prompt tett1)
  156.                          (help "RTFM")
  157.                          (default "Sys:Utilities/MultiView")))
  158. (tooltype (settooltype "Guide" res)
  159.           (dest icon) (prompt " ") (help " "))
  160.  
  161. (set res (askchoice (prompt font)
  162.                          (help "RTFM")
  163.                          (choices "JA" "NEIN")
  164.                          (default 0)))
  165. (if (= res "1")
  166.         ((tooltype (settooltype "GuideARG" "")
  167.                   (dest icon) (prompt " ") (help " ")))
  168.         ((tooltype (settooltype "GuideARG" "FONTNAME=XEN FONTSIZE=11")
  169.                   (dest icon) (prompt " ") (help " "))))
  170. ;*********************************************************************************
  171. (set res (askfile   (prompt tett2)
  172.                          (help "RTFM")
  173.                          (default "Sys:Utilities/MultiView")))
  174. (tooltype (settooltype "Text" res)
  175.           (dest icon) (prompt " ") (help " "))
  176.  
  177. (set res (askchoice (prompt font)
  178.                          (help "RTFM")
  179.                          (choices "JA" "NEIN")
  180.                          (default 0)))
  181. (if (= res "1")
  182.         ((tooltype (settooltype "TextARG" "")
  183.                   (dest icon) (prompt " ") (help " ")))
  184.         ((tooltype (settooltype "TextARG" "FONTNAME=XEN FONTSIZE=11")
  185.                   (dest icon) (prompt " ") (help " "))))
  186. ;*********************************************************************************
  187. (set res (askfile   (prompt pitt1)
  188.                          (help "RTFM")
  189.                          (default "Sys:C/")))
  190. (tooltype (settooltype "ILBM" res)
  191.           (dest icon) (prompt " ") (help " "))
  192.  
  193. (set res (askstring (prompt pitt1a)
  194.                          (help "RTFM")
  195.                          (default "")))
  196.  
  197. (if (= res "")
  198.         ((tooltype (settooltype "ILBMARG" "")
  199.                    (dest icon) (prompt " ") (help " ")))
  200.         ((tooltype (settooltype "ILBMARG" res)
  201.                    (dest icon) (prompt " ") (help " "))))
  202. ;*********************************************************************************
  203. (set res (askfile   (prompt pitt2)
  204.                          (help "RTFM")
  205.                          (default "Sys:C/")))
  206. (tooltype (settooltype "JPEG" res)
  207.           (dest icon) (prompt " ") (help " "))
  208.  
  209. (set res (askstring (prompt pitt2a)
  210.                          (help "RTFM")
  211.                          (default "")))
  212.  
  213. (if (= res "")
  214.         ((tooltype (settooltype "JPEGARG" "")
  215.                    (dest icon) (prompt " ") (help " ")))
  216.         ((tooltype (settooltype "JPEGARG" res)
  217.                    (dest icon) (prompt " ") (help " "))))
  218. ;*********************************************************************************
  219. (set res (askfile   (prompt pitt3)
  220.                          (help "RTFM")
  221.                          (default "Sys:C/")))
  222. (tooltype (settooltype "GIF" res)
  223.           (dest icon) (prompt " ") (help " "))
  224.  
  225. (set res (askstring (prompt pitt3a)
  226.                          (help "RTFM")
  227.                          (default "")))
  228.  
  229. (if (= res "")
  230.         ((tooltype (settooltype "GIFARG" "")
  231.                    (dest icon) (prompt " ") (help " ")))
  232.         ((tooltype (settooltype "GIFARG" res)
  233.                    (dest icon) (prompt " ") (help " "))))
  234. ;*********************************************************************************
  235. (set res (askfile   (prompt antt0)
  236.                          (help "RTFM")
  237.                          (default "Sys:C/")))
  238. (tooltype (settooltype "ANIM" res)
  239.           (dest icon) (prompt " ") (help " "))
  240.  
  241. (set res (askstring (prompt antt0a)
  242.                          (help "RTFM")
  243.                          (default "")))
  244.  
  245. (if (= res "")
  246.         ((tooltype (settooltype "ANIMARG" "")
  247.                    (dest icon) (prompt " ") (help " ")))
  248.         ((tooltype (settooltype "ANIMARG" res)
  249.                    (dest icon) (prompt " ") (help " "))))
  250. ;*********************************************************************************
  251. (set res (askfile   (prompt antt1)
  252.                          (help "RTFM")
  253.                          (default "Sys:C/")))
  254. (tooltype (settooltype "FLI-ANIM" res)
  255.           (dest icon) (prompt " ") (help " "))
  256.  
  257. (set res (askstring (prompt antt1a)
  258.                          (help "RTFM")
  259.                          (default "")))
  260.  
  261. (if (= res "")
  262.         ((tooltype (settooltype "FLI-ANIMARG" "")
  263.                    (dest icon) (prompt " ") (help " ")))
  264.         ((tooltype (settooltype "FLI-ANIMARG" res)
  265.                    (dest icon) (prompt " ") (help " "))))
  266. ;*********************************************************************************
  267. (set res (askfile   (prompt antt2)
  268.                          (help "RTFM")
  269.                          (default "Sys:C/")))
  270. (tooltype (settooltype "FLC-ANIM" res)
  271.           (dest icon) (prompt " ") (help " "))
  272.  
  273. (set res (askstring (prompt antt2a)
  274.                          (help "RTFM")
  275.                          (default "")))
  276.  
  277. (if (= res "")
  278.         ((tooltype (settooltype "FLC-ANIMARG" "")
  279.                    (dest icon) (prompt " ") (help " ")))
  280.         ((tooltype (settooltype "FLC-ANIMARG" res)
  281.                    (dest icon) (prompt " ") (help " "))))
  282. ;*********************************************************************************
  283. (set res (askfile   (prompt antt3)
  284.                          (help "RTFM")
  285.                          (default "Sys:C/")))
  286. (tooltype (settooltype "MPEG-ANIM" res)
  287.           (dest icon) (prompt " ") (help " "))
  288.  
  289. (set res (askstring (prompt antt3a)
  290.                          (help "RTFM")
  291.                          (default "")))
  292.  
  293. (if (= res "")
  294.         ((tooltype (settooltype "MPEG-ANIMARG" "")
  295.                    (dest icon) (prompt " ") (help " ")))
  296.         ((tooltype (settooltype "MPEG-ANIMARG" res)
  297.                    (dest icon) (prompt " ") (help " "))))
  298. ;*********************************************************************************
  299. (set res (askfile   (prompt edtt2)
  300.                          (help "RTFM")
  301.                          (default "SYS:Tools/Memacs")))
  302. (tooltype (settooltype "EDITOR" res)
  303.           (dest icon) (prompt " ") (help " "))
  304. ;*********************************************************************************
  305. (set res (askfile   (prompt edtt1)
  306.                          (help "RTFM")
  307.                          (default "SYS:Tools/IconEdit")))
  308. (tooltype (settooltype "ICON" res)
  309.           (dest icon) (prompt " ") (help " "))
  310. ;*********************************************************************************
  311. (set res (askfile   (prompt edtt3)
  312.                          (help "RTFM")
  313.                          (default "SYS:")))
  314. (tooltype (settooltype "SWRT" res)
  315.           (dest icon) (prompt " ") (help " "))
  316. ;*********************************************************************************
  317. ;(set res (askfile   (prompt patt1)
  318. ;                         (help "RTFM")
  319. ;                         (default "SYS:C/ARC")))
  320. ;(tooltype (settooltype "ARC" res)
  321. ;          (dest icon) (prompt " ") (help " "))
  322. ;*********************************************************************************
  323. (set res (askfile   (prompt patt2)
  324.                          (help "RTFM")
  325.                          (default "SYS:C/DMS")))
  326. (tooltype (settooltype "DMS" res)
  327.           (dest icon) (prompt " ") (help " "))
  328. ;*********************************************************************************
  329. (set res (askfile   (prompt patt3)
  330.                          (help "RTFM")
  331.                          (default "SYS:C/LHA")))
  332. (tooltype (settooltype "LHArc" res)
  333.           (dest icon) (prompt " ") (help " "))
  334. ;*********************************************************************************
  335. (set res (askfile   (prompt patt4)
  336.                          (help "RTFM")
  337.                          (default "SYS:C/LZX")))
  338. (tooltype (settooltype "LZX" res)
  339.           (dest icon) (prompt " ") (help " "))
  340. ;*********************************************************************************
  341.  
  342. ) ; <-- Das hier ist die "Klammer zu" von Procedure KONFIG
  343.  
  344. ;*********************************************************************************
  345.  
  346. ;###############################################################################
  347. ;##              Eigentliches Installerscript                                 ##
  348. ;###############################################################################
  349.  
  350. ;*********************************************************************************
  351. (message (cat ("\n%s\n" @app-name)
  352.                         ("\n© 1996 Claus Dilly <%s>\n\n" email)
  353.                         "\nEin nützliches Tool für Dateitypenverarbeitung\n"
  354.                         "auf der Workbench\n\n"
  355.                         "Dieses Installer-Script kopiert alle Dateien in die\n"
  356.                         "vorgesehenen Verzeichnisse.\n\n"
  357.          )
  358. )
  359.  
  360. (message (cat "\nMultiConcept benötigt die\n\n"
  361.                  ("rexxtricks.library %ld.%ld\n" minver1 minrev1)
  362.                  ("rexxreqtools.library %ld.%ld\n" minver2 minrev2)
  363.                  ("whatis.library %ld.%ld\n" minver3 minrev3)
  364.                  "\n(Diese Librarys liegen diesem Paket nicht bei)"
  365.          )
  366. )
  367. ;*********************************************************************************
  368. ; Feststellen ob NewIcons installiert ist
  369.  
  370. (set res (askchoice (prompt nicon)
  371.                     (help "\nWenn Sie NewIcons installiert haben, wird für Multi-\n"
  372.                      "çoncept ein Icon installiert, das dem NewIcon-\n"
  373.                      "Standart entspricht.")
  374.                     (choices "JA" "NEIN")
  375.                     (default 1)))
  376.  
  377. (if (= res "1")
  378.          (
  379.           (set sourceicon  "S/MultiConcept1.info")
  380.          )
  381.          (
  382.           (set sourceicon  "S/MultiConcept2.info")
  383.          )
  384. )
  385. (copyfiles  (prompt " ")
  386.             (help @copyfiles-help)
  387.             (source sourceicon)
  388.             (dest "T:")
  389.             (newname "MultiConcept.info")
  390. ;            (infos)
  391. ;            (confirm)
  392. )
  393. ;*********************************************************************************
  394. ; Feststellen ob RAM DISK existiert, wenn ja umbenennen nach RAM
  395.  
  396. (if (exists "RAM DISK:" (noreq))
  397.    (
  398.       (set res (askchoice (prompt "\nSoll die `RAM DISK' umbenannt werden"
  399.                                   "\nnach `RAM' ?")
  400.                           (help "\nUm DOS-Fehler zu vermeiden, sollte es keinen"
  401.                                 "\nFilenamen oder Disknamen geben, der ein"
  402.                                 "\nLeerzeichen innerhalb des Namens hat.")
  403.                           (choices "JA" "NEIN")
  404.                           (default 0)))
  405.       (if (= res "0")
  406.          (
  407.           (rename "RAM DISK:" "RAM"
  408.                   (disk)
  409.           )
  410.           (set res (askchoice (prompt "\nSoll der Rename-Befehl für die"
  411.                                       "\n`RAM DISK' auch in die User-Startup"
  412.                                       "\neingetragen werden ?\n")
  413.                               (help " ")
  414.                               (choices "JA" "NEIN")
  415.                               (default 0)))
  416.  
  417.           (if (= res "0")
  418.              (startup "MultiConcept" (prompt "\nFüge nun den Relabel-Befehl in die User-Startup ein.")
  419.                       (help "No help for this function")
  420.                       (command "Relabel >nil: RAM: RAM\n"
  421.                                "ASSIGN >nil: \"RAM DISK:\" RAM:\n")
  422.              )
  423.           )
  424.          )
  425.       )
  426.    )
  427.  
  428. )
  429. ;*********************************************************************************
  430. ; Feststellen, ob Whatis.library vorhanden. Wenn nicht, dann kopieren
  431.  
  432. (if (NOT(exists "LIBS:Whatis.library" (noreq)))
  433.     (copylib
  434.          (prompt "\nKopiere die Whatis.library ?\n")
  435.          (help @copylib-help)
  436.          (source "Libs/whatis.library")
  437.          (dest "Libs:")
  438.     )
  439. )
  440. ;*********************************************************************************
  441. ; Feststellen, ob Filetypes vorhanden. Wenn nicht, dann kopieren ansonsten fragen
  442.  
  443. (if (NOT(exists "REXX:Filetypes" (noreq)))
  444.   (
  445.     (copyfiles
  446.          (prompt "\nSollen die FileTypes kopiert werden ?\nSie werden für die Whatis.library benötigt.\n")
  447.          (help @copylib-help)
  448.          (source "S/")
  449.          (dest "REXX:")
  450.          (pattern "File#?")
  451.          (confirm)
  452.     )
  453.   )
  454.   (
  455.     (if (exists "S/Filetypes" (noreq)))
  456.     (copyfiles
  457.          (prompt "\nEs existieren schon FileTypes\nfür die Whatis.library !\nSollen die neuen installiert werden ?\n")
  458.          (help @copylib-help)
  459.          (source "S/")
  460.          (dest "REXX:")
  461.          (pattern "File#?")
  462.          (confirm)
  463.     )
  464.   )
  465. )
  466. ;*********************************************************************************
  467. (set libvers (getversion "libs:rexxtricks.library"))
  468. (set version  (/ libvers 65536))
  469. (set revision (- libvers (* version 65536)))
  470.  
  471. (IF (< (+ (* 100 version) revision) (+ (* 100 minver1) minrev1))
  472.   (
  473.           (message (Cat ("\nVersion der rexxtricks.library ist nur %ld.%ld\n" version revision)
  474.                         ("\nEs wird mindestens Version %ld.%ld benötigt\n\n" minver1 minrev1)
  475.                          " Breche Installation ab."
  476.                         )
  477.           )
  478.           (exit (quiet))
  479.   )
  480. )
  481.  
  482. (set libvers (getversion "libs:rexxreqtools.library"))
  483. (set version  (/ libvers 65536))
  484. (set revision (- libvers (* version 65536)))
  485.  
  486. (IF (< (+ (* 100 version) revision) (+ (* 100 minver2) minrev2))
  487.   (
  488.           (message (Cat ("\nVersion der rexxreqtools.library ist nur %ld.%ld\n" version revision)
  489.                         ("\nEs wird mindestens Version %ld.%ld benötigt\n\n" minver2 minrev2)
  490.                          " Breche Installation ab."
  491.                         )
  492.           )
  493.           (exit (quiet))
  494.   )
  495. )
  496.  
  497. (set libvers (getversion "libs:whatis.library"))
  498. (set version  (/ libvers 65536))
  499. (set revision (- libvers (* version 65536)))
  500.  
  501. (IF (< (+ (* 100 version) revision) (+ (* 100 minver3) minrev3))
  502.   (
  503.           (message (Cat ("\nVersion der whatis.library ist nur %ld.%ld\n" version revision)
  504.                         ("\nEs wird mindestens Version %ld.%ld benötigt\n\n" minver3 minrev3)
  505.                          " Breche Installation ab."
  506.                         )
  507.           )
  508.           (exit (quiet))
  509.   )
  510. )
  511.  
  512. ;*********************************************************************************
  513. ; Feststellen, ob XEN-Font vorhanden. Wenn nicht, dann kopieren
  514.  
  515. (if (NOT(exists "FONTS:XEN.font" (noreq)))
  516.     (copyfiles
  517.          (prompt "\nSoll der XEN-Font kopiert werden ?\n")
  518.          (help @copylib-help)
  519.          (source "Fonts/")
  520.          (dest "FONTS:")
  521.          (pattern "#?")
  522.          (confirm)
  523.     )
  524. )
  525. ;*********************************************************************************
  526. ; Kopieren des Scripts
  527.  
  528. (set xxx (askbool  (prompt (cat ("\nKopiere nun das Arexx-Script\n\n %s\n\n" @app-name)
  529.                                 ("in das Verzeichnis %s\n\nDas Icon wird nur" def)
  530.                                 " mitkopiert,wenn noch kein \nIcon vorhanden ist.\n"
  531.                                 " -> Oder auf ausdrücklichen Wunsch ;-) <-"
  532.                                 )
  533.                         )
  534.                         (help "\nNun wird das Hauptprogramm MultiConcept\n"
  535.                          "in das logische Verzeichnis REXX: kopiert.\n\n"
  536.                          "Sollte MultiConcept schon in einer älteren Version\n"
  537.                          "vorhanden sein, wird das alte Programm ohne dem Icon\n"
  538.                          "überschrieben")
  539.                         (choices "Script kopieren" "Nicht kopieren")
  540.          )
  541. )
  542.  
  543. (if (= xxx 1)
  544.     (copyfiles  (prompt xxx)
  545.     (help @copylib-help)
  546.     (source sourcefile)
  547.     (dest def)
  548.     )
  549. )
  550. ;*********************************************************************************
  551. ; Kopieren des Helpfiles
  552.  
  553. (set xxx (askbool  (prompt (cat ("\nKopiere nun das Helpfile für %s\n\n" @app-name)
  554.                                 ("in das Verzeichnis %s\n\n" hpath)
  555.                                 )
  556.                         )
  557.                         (help " ")
  558.                         (choices "Helpfile kopieren" "Nicht kopieren")
  559.          )
  560. )
  561.  
  562. (if (= xxx 1)
  563.     (copyfiles  (prompt xxx)
  564.     (help @copylib-help)
  565.     (source helpfile)
  566.     (dest hpath)
  567.     )
  568. )
  569. ;*********************************************************************************
  570. ; Feststellen, ob Icon vorhanden. Wenn nicht, dann kopieren
  571.  
  572. (set icon "REXX:MultiConcept.info")
  573. ;(set icon (tackon "REXX:MultiConcept.info"))
  574. (if (NOT(exists icon (noreq)))
  575.   (
  576.          (message "\nEs ist noch kein Icon vorhanden. Starte Konfigurationsprogramm")
  577.          (KONFIG)
  578.          (copyfiles  (prompt " ")
  579.                 (help @copyfiles-help)
  580.                 (source sourceicon)
  581.                 (dest def)
  582.                 (files)
  583.          )
  584.  
  585.   )
  586.   (
  587.          (set kopiere(askbool(prompt(cat "\nEs ist schon ein Icon (eventuell mit Vor-\n"
  588.                                          "einstellungen) vorhanden.\n"
  589.                                          "Soll dieses Icon durch das beigefügte Icon\n"
  590.                                          "ersetzt werden ??\n\n "
  591.                                          "ACHTUNG!!! Das Icon beinhaltet\n"
  592.                                          "alle persönlichen Voreinstellungen\n"
  593.                                          "Wenn \"Überschreiben\" gewählt wird, können\n"
  594.                                          "sämtliche ToolTypes konfiguriert werden\n"
  595.                                          ("%s" tempi)
  596.                                          )
  597.                         )
  598.                         (help " ")
  599.                         (choices "Überschreiben" "Nichts ändern")
  600.                 )
  601.          )
  602.          (If (= kopiere 1)
  603.                 (
  604.         
  605.         (copyfiles  (prompt "\nErzeuge Sicherheitskopie\n")
  606.                          (help "\nHier kann eine Sicherheitskopie vom alten\n"
  607.                           "MultiConcept-Icon gemacht werden, indem man an dem\n"
  608.                           "angezeigten Namen das Häckchen aktiviert.\n\n"
  609.                           "Die Kopie liegt dann in dem Verzeichnis, welches\n"
  610.                           "Sie unten eingetragen haben.\n\n"
  611.                           "Default = REXX:\n\n"
  612.                           "Die Kopie hat den Namen:\n\n"
  613.                           "Copy_of_MultiConcept.info")
  614.                          (source "REXX:MultiConcept.info")
  615.                          (dest "REXX:")
  616.                          (newname "Copy_of_MultiConcept.info")
  617. ;                         (infos)
  618.                          (confirm)
  619.                 )
  620.         (KONFIG)
  621.         (copyfiles  (prompt "Überschreibe Icon")
  622.                          (help @copyfiles-help)
  623.                          (SOURCE "T:MultiConcept.info")
  624.                          (dest def)
  625.                          (newname "MultiConcept.info")
  626.                          (files)
  627.                 )
  628.                 )
  629.          )
  630.   )
  631. )
  632. ;*********************************************************************************
  633. ; Kopieren des Prefsfiles
  634.  
  635. (set res (askdir  (prompt (cat ("In welches Verzeichnis soll das\n\n")
  636.                                ("Prefs-Programm für %s kopiert werden ?\n\n" @app-name)
  637.                                 )
  638.                         )
  639.                         (help "\nHier geben Sie das Verzeichnis an, in welches das\n"
  640.                          "MultiConcept-Prefs Programm kopiert werden soll.\n\n"
  641.                          "Default = SYS:Prefs/\n\n"
  642.                          "Mit diesem Prefs-Programm können dann immer die Tooltypes\n"
  643.                          "vom MultiConcept-Hauptprogramm geändert oder deaktiviert\n"
  644.                          "werden.")
  645.                         (default "SYS:Prefs/")
  646.          )
  647. )
  648. (copyfiles
  649.         (prompt "Kopiere MultiConcept-Prefs Starter")
  650.         (help @copyfiles-help)
  651.         (source "MultiConcept")
  652.         (dest res)
  653.         (files)
  654.         (infos)
  655. )
  656. (copyfiles
  657.         (prompt "Kopiere MultiConcept-Prefs Hauptprogramm")
  658.         (help @copyfiles-help)
  659.         (source "Set-MultiConcept")
  660.         (dest res)
  661.         (files)
  662. )
  663. ;*********************************************************************************
  664. ; Kopieren des Guidefiles
  665.  
  666. (set res (askdir  (prompt (cat ("In welches Verzeichnis soll der\n\n")
  667.                                ("Guide für %s kopiert werden ?\n\n" @app-name)
  668.                                 )
  669.                         )
  670.                         (help @askdir-help)
  671.                         (default "SYS:Locale/Help/deutsch/")
  672.          )
  673. )
  674.  
  675.  
  676.  
  677. (copyfiles
  678.         (prompt "Kopiere MultiConcept.guide")
  679.         (help @copyfiles-help)
  680.         (source sourcedoc)
  681.         (dest res)
  682.         (files)
  683.         (infos)
  684. )
  685. ;*********************************************************************************  
  686. (delete icon (prompt " ")
  687.     (help " ")
  688.     (infos)
  689. )
  690.  
  691.  
  692. (exit "\nDie Installation ist nun abgeschlossen."
  693.       "\n\n Ich wünsche Ihnen viel Spaß mit " @app-name
  694.       "\n\nBitte lesen Sie unbedingt den Guide vor der"
  695.       "\nAnwendung durch. Die meisten Fragen lassen sich"
  696.       "\ndort bestimmt beantworten."
  697.        (quiet))
  698.